﻿Imports extremo

Public Class NuevoDeporte
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try
            Dim negocio = New DeporteNegocio
            negocio.insertar(Me.txtNombre.Text, Me.txtUbicacion.Text, Me.txtDescripcion.Text, Me.txtCosto.Text, Me.txtInstructor.Text, Me.txtFecha.Text)

            Me.txtNombre.Text = ""
            Me.txtUbicacion.Text = ""
            Me.txtDescripcion.Text = ""
            Me.txtCosto.Text = ""
            Me.txtInstructor.Text = ""
            Me.txtFecha.Text = ""
          
            Response.Write("Se insertó correctamente")

        Catch ex As Exception
            Response.Write("Problemas al insertar")
        End Try


    End Sub
End Class